Public Partial Class wucDataNovo
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.TextBox1.Attributes.Add("OnKeyUp", "formataCPF(this,event)")
        Me.TextBox2.Attributes.Add("OnKeyUp", "formataInteiro(this,event)")
        Me.TextBox3.Attributes.Add("OnKeyUp", "filtraNumeros(this,event)")
        Me.TextBox4.Attributes.Add("OnKeyUp", "formataDouble(this,event")

        Me.ViewState("Filho") = "Gio"
    End Sub

    Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d As String = ViewState("Filho")


        Throw New Exception("quebra linha" & vbCrLf & "esta tem q ser a segunda linha")
        Me.Response.Write(d)


    End Sub
End Class